home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_32428.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  3.3 KB  |  152 lines
  1. -- card: 32428 from stack: in
  2. -- bmap block id: 32611
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 3
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "up" then EnterInField
  13.   else if which is "right" then beep
  14.   else if which is "left" then beep
  15.   else if which is "down" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   global x
  20.   lock screen
  21.   go next
  22.   hide card field "red"
  23.   unlock screen
  24.   wait x
  25.   lock screen
  26.   show card field "red"
  27.   unlock screen with dissolve
  28. End EnterInField
  29.  
  30.  
  31.  
  32. -- part 8 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=142 top=133 right=199 bottom=314
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 256
  42. -- line height: 16
  43. -- part name: 
  44.  
  45.  
  46. -- part 9 (field)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=142 top=199 right=216 bottom=309
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 2048
  56. -- line height: 16
  57. -- part name: 
  58.  
  59.  
  60. -- part 10 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=142 top=213 right=230 bottom=311
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 12
  69. -- style flags: 256
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 17 (field)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=7 top=282 right=303 bottom=382
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 14
  83. -- style flags: 256
  84. -- line height: 18
  85. -- part name: 
  86.  
  87.  
  88. -- part 18 (field)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=50 top=304 right=323 bottom=399
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 14
  97. -- style flags: 0
  98. -- line height: 18
  99. -- part name: 
  100.  
  101.  
  102. -- part contents for card part 3
  103. ----- text -----
  104. ... and now hit the up arrow key to move the highlight back to Menus...
  105.  
  106. -- part contents for card part 8
  107. ----- text -----
  108. Menus
  109. Commands
  110. Change configuration
  111. DOS Commands
  112.  
  113. -- part contents for card part 9
  114. ----- text -----
  115. change compact Disc
  116.  
  117. -- part contents for card part 10
  118. ----- text -----
  119. eXit
  120.  
  121. -- part contents for background part 2
  122. ----- text -----
  123. 88
  124.  
  125. -- part contents for background part 3
  126. ----- text -----
  127. Main Menu
  128.  
  129. -- part contents for background part 5
  130. ----- text -----
  131. card id 42013
  132.  
  133. -- part contents for background part 8
  134. ----- text -----
  135. 42013
  136.  
  137. -- part contents for background part 11
  138. ----- text -----
  139.  
  140.  
  141.  
  142. -- part contents for card part 17
  143. ----- text -----
  144. Insert next disc(s) to be searched in reader.
  145.  
  146. -- part contents for card part 18
  147. ----- text -----
  148. -- Press enter to initialize disc(s).
  149.  
  150. -- part contents for card part 14
  151. ----- text -----
  152.    Hit RETURN to initialize disc ...